home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 23 / AMIGAplus Sonderheft 23 (2000)(Falke)(DE)[!].iso / Tools / Text-Viewer / MSWordView / Install < prev    next >
Text File  |  1999-11-06  |  2KB  |  64 lines
  1. ;MSWordView Installer by Nicholai Benalal
  2.  
  3.  
  4. (set @default-dest "")
  5. (set #where (cat "Where should I...."))
  6. (set #badcpu (cat "Sorry you need at least a 68020 to run MSWordView"))
  7. (set #about (cat "Welcome to MSWordView 0.5.2. \n\n\nWith this program it's possible to convert Microsoft Word8 files to html-format.\nThis will give you to possibility to read them with your favorite browser\n\nThis program was written by Caolan McNamara\nIt was compiled for AmigaOS by Nicholai Benalal"))
  8. (set #assign (cat "To be able to read files created with MSWordView\nYou need to create an assign named 'MSWordView:'\nDo you want the installer to add this assign to your\n           user-startup?\n\nNB: If you choose no, you will need to add this manually"))
  9.  
  10. (if (patmatch "68000" (database "cpu"))
  11.   (abort #badcpu))
  12. (if (patmatch "68010" (database "cpu"))
  13.   (abort #badcpu))
  14.  
  15. (message #about)
  16.  
  17.  
  18. (set #destination
  19. (askdir (prompt "Select a location to install the MSWordView. A Drawer \"MSWordView\" will be created")
  20. (help @askdir-help)
  21. (default "ram:")
  22. )
  23. )
  24.  
  25. (if (NOT (exists #destination))
  26.  (makedir #destination))
  27.  
  28. (copyfiles
  29. (source "")
  30. (dest (tackon #destination "MSWordView"))
  31. (infos)
  32. (all)
  33. (optional "oknodelete" "force" "askuser")
  34. )
  35.  
  36. (
  37.    (set #startup-addition (cat
  38.     "assign MSWordView: \"" (expandpath (tackon #destination "MSWordView")) "\"\n"
  39.     )
  40.    )
  41.    (if
  42.     (askbool
  43.      (prompt #assign)
  44.      (help #assign)
  45.      (choices "Yes" "No")
  46.     )
  47.     (startup "MSWordView"
  48.      (command #startup-addition)
  49.      (prompt "Installer will modify your s:user-startup "
  50.       "script. The following lines will be added:\n\n"
  51.       #startup-addition)
  52.      (help "Installer will modify your s:user-startup "
  53.       "script. The following lines will be added:\n\n"
  54.       #startup-addition)
  55.     )
  56.     (textfile
  57.      (dest (tackon #destination "MSWordView" "addition-to-user-startup"))
  58.      (append #startup-addition)
  59.     )
  60.    )
  61. )
  62.  
  63. (makeassign "MSWordView" (expandpath (tackon #destination "MSWordView")))
  64.